From fa368fc61105ebb733af1e3619e9f01e22ee1689 Mon Sep 17 00:00:00 2001 From: justbur Date: Fri, 3 Jul 2015 22:19:50 -0400 Subject: [PATCH] Fix index error for subseq --- which-key.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/which-key.el b/which-key.el index ddd5d009128..968999791ea 100644 --- a/which-key.el +++ b/which-key.el @@ -177,11 +177,11 @@ longest key and description in the buffer, respectively." (max-lines (ceiling (/ (float n-keys) n-columns))) (n-lines (if n-lines (min n-lines max-lines) max-lines)) lines str-to-insert start end) - (message "n-lines: %s" n-lines) (when (> n-columns 0) (dotimes (i n-lines) - (setq lines (push (subseq formatted-keys (* i n-columns) (* (1+ i) n-columns)) lines))) - (setq lns lines nlns n-lines) + (setq lines + (push (subseq formatted-keys (* i n-columns) (min n-keys (* (1+ i) n-columns))) + lines))) (setq str-to-insert (mapconcat (lambda (x) (apply 'concat x)) (reverse lines) "\n")) (if which-key-use-minibuffer (let (message-log-max) (message "%s" str-to-insert)) -- 2.30.2